home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xws9.t < prev    next >
Text File  |  1990-06-01  |  7KB  |  161 lines
  1. (HERALD XWS9 (ENV TSYS (XLIB INTERFACE)))
  2.  
  3. (DEFINE-FOREIGN XSTORENAME*
  4.                 ("XStoreName" (IN REP/C-POINTER)
  5.                               (IN REP/INTEGER)
  6.                               (IN REP/STRING))
  7.                 IGNORE)
  8. (DEFINE (XSTORENAME DPY W NAME)
  9.         (LET* ((DPY (CHK-DISPLAYP DPY))
  10.                (W W)
  11.                (NAME (IF (STRING? NAME)
  12.                          (STRING->ASCIZ! NAME)
  13.                          (ERROR "Argument is incorrect type: ~s" NAME)))
  14.                (RETURN-VALUE (BLOCK (XSTORENAME* DPY W NAME) '())))
  15.               RETURN-VALUE))
  16. (DEFINE-FOREIGN XSETICONNAME*
  17.                 ("XSetIconName" (IN REP/C-POINTER)
  18.                                 (IN REP/INTEGER)
  19.                                 (IN REP/STRING))
  20.                 IGNORE)
  21. (DEFINE (XSETICONNAME DPY W ICON_NAME)
  22.         (LET* ((DPY (CHK-DISPLAYP DPY))
  23.                (W W)
  24.                (ICON_NAME (IF (STRING? ICON_NAME)
  25.                               (STRING->ASCIZ! ICON_NAME)
  26.                               (ERROR "Argument is incorrect type: ~s" ICON_NAME)))
  27.                (RETURN-VALUE (BLOCK (XSETICONNAME* DPY W ICON_NAME) '())))
  28.               RETURN-VALUE))
  29. (DEFINE-FOREIGN XSETWMHINTS*
  30.                 ("XSetWMHints" (IN REP/C-POINTER)
  31.                                (IN REP/INTEGER)
  32.                                (IN REP/C-POINTER))
  33.                 IGNORE)
  34. (DEFINE (XSETWMHINTS DPY W HINTS)
  35.         (LET* ((DPY (CHK-DISPLAYP DPY))
  36.                (W W)
  37.                (HINTS (CHK-XWMHINTSP HINTS))
  38.                (RETURN-VALUE (BLOCK (XSETWMHINTS* DPY W HINTS) '())))
  39.               RETURN-VALUE))
  40. (DEFINE-FOREIGN XSETNORMALHINTS*
  41.                 ("XSetNormalHints" (IN REP/C-POINTER)
  42.                                    (IN REP/INTEGER)
  43.                                    (IN REP/C-POINTER))
  44.                 IGNORE)
  45. (DEFINE (XSETNORMALHINTS DPY W HINTS)
  46.         (LET* ((DPY (CHK-DISPLAYP DPY))
  47.                (W W)
  48.                (HINTS (CHK-XSIZEHINTSP HINTS))
  49.                (RETURN-VALUE (BLOCK (XSETNORMALHINTS* DPY W HINTS) '())))
  50.               RETURN-VALUE))
  51. (DEFINE-FOREIGN XGETNORMALHINTS*
  52.                 ("XGetNormalHints" (IN REP/C-POINTER)
  53.                                    (IN REP/INTEGER)
  54.                                    (IN REP/EXTEND))
  55.                 REP/INTEGER)
  56. (DEFINE (XGETNORMALHINTS DPY W)
  57.         (LET* ((DPY (CHK-DISPLAYP DPY))
  58.                (W W)
  59.                (HINTS (MAKE-BYTEV 60))
  60.                (RETURN-VALUE (XGETNORMALHINTS* DPY W HINTS)))
  61.               (RETURN RETURN-VALUE (CONS 'XSIZEHINTSP HINTS))))
  62. (DEFINE-FOREIGN XSETZOOMHINTS*
  63.                 ("XSetZoomHints" (IN REP/C-POINTER)
  64.                                  (IN REP/INTEGER)
  65.                                  (IN REP/C-POINTER))
  66.                 IGNORE)
  67. (DEFINE (XSETZOOMHINTS DPY W ZHINTS)
  68.         (LET* ((DPY (CHK-DISPLAYP DPY))
  69.                (W W)
  70.                (ZHINTS (CHK-XSIZEHINTSP ZHINTS))
  71.                (RETURN-VALUE (BLOCK (XSETZOOMHINTS* DPY W ZHINTS) '())))
  72.               RETURN-VALUE))
  73. (DEFINE-FOREIGN XGETZOOMHINTS*
  74.                 ("XGetZoomHints" (IN REP/C-POINTER)
  75.                                  (IN REP/INTEGER)
  76.                                  (IN REP/EXTEND))
  77.                 REP/INTEGER)
  78. (DEFINE (XGETZOOMHINTS DPY W)
  79.         (LET* ((DPY (CHK-DISPLAYP DPY))
  80.                (W W)
  81.                (ZHINTS (MAKE-BYTEV 60))
  82.                (RETURN-VALUE (XGETZOOMHINTS* DPY W ZHINTS)))
  83.               (RETURN RETURN-VALUE (CONS 'XSIZEHINTSP ZHINTS))))
  84. (DEFINE-FOREIGN XSETSIZEHINTS*
  85.                 ("XSetSizeHints" (IN REP/C-POINTER)
  86.                                  (IN REP/INTEGER)
  87.                                  (IN REP/C-POINTER)
  88.                                  (IN REP/INTEGER))
  89.                 IGNORE)
  90. (DEFINE (XSETSIZEHINTS DPY W HINTS PROPERTY)
  91.         (LET* ((DPY (CHK-DISPLAYP DPY))
  92.                (W W)
  93.                (HINTS (CHK-XSIZEHINTSP HINTS))
  94.                (PROPERTY PROPERTY)
  95.                (RETURN-VALUE (BLOCK (XSETSIZEHINTS* DPY W HINTS PROPERTY)
  96.                                     '())))
  97.               RETURN-VALUE))
  98. (DEFINE-FOREIGN XGETSIZEHINTS*
  99.                 ("XGetSizeHints" (IN REP/C-POINTER)
  100.                                  (IN REP/INTEGER)
  101.                                  (IN REP/EXTEND)
  102.                                  (IN REP/INTEGER))
  103.                 REP/INTEGER)
  104. (DEFINE (XGETSIZEHINTS DPY W PROPERTY)
  105.         (LET* ((DPY (CHK-DISPLAYP DPY))
  106.                (W W)
  107.                (HINTS (MAKE-BYTEV 60))
  108.                (PROPERTY PROPERTY)
  109.                (RETURN-VALUE (XGETSIZEHINTS* DPY W HINTS PROPERTY)))
  110.               (RETURN RETURN-VALUE (CONS 'XSIZEHINTSP HINTS))))
  111. (DEFINE-FOREIGN XSETTRANSIENTFORHINT*
  112.                 ("XSetTransientForHint" (IN REP/C-POINTER)
  113.                                         (IN REP/INTEGER)
  114.                                         (IN REP/INTEGER))
  115.                 IGNORE)
  116. (DEFINE (XSETTRANSIENTFORHINT DPY W PROPWINDOW)
  117.         (LET* ((DPY (CHK-DISPLAYP DPY))
  118.                (W W)
  119.                (PROPWINDOW PROPWINDOW)
  120.                (RETURN-VALUE (BLOCK (XSETTRANSIENTFORHINT* DPY W PROPWINDOW)
  121.                                     '())))
  122.               RETURN-VALUE))
  123. (DEFINE-FOREIGN XGETTRANSIENTFORHINT*
  124.                 ("XGetTransientForHint" (IN REP/C-POINTER)
  125.                                         (IN REP/INTEGER)
  126.                                         (IN REP/EXTEND))
  127.                 REP/INTEGER)
  128. (DEFINE (XGETTRANSIENTFORHINT DPY W)
  129.         (LET* ((DPY (CHK-DISPLAYP DPY))
  130.                (W W)
  131.                (PROPWINDOW (MAKE-BYTEV 4))
  132.                (RETURN-VALUE (XGETTRANSIENTFORHINT* DPY W PROPWINDOW)))
  133.               (RETURN RETURN-VALUE (MREF-INTEGER PROPWINDOW 0))))
  134. (DEFINE-FOREIGN XGETSTANDARDCOLORMAP*
  135.                 ("XGetStandardColormap" (IN REP/C-POINTER)
  136.                                         (IN REP/INTEGER)
  137.                                         (IN REP/EXTEND)
  138.                                         (IN REP/INTEGER))
  139.                 REP/INTEGER)
  140. (DEFINE (XGETSTANDARDCOLORMAP DPY W PROPERTY)
  141.         (LET* ((DPY (CHK-DISPLAYP DPY))
  142.                (W W)
  143.                (CMAP (MAKE-BYTEV 32))
  144.                (PROPERTY PROPERTY)
  145.                (RETURN-VALUE (XGETSTANDARDCOLORMAP* DPY W CMAP PROPERTY)))
  146.               (RETURN RETURN-VALUE (CONS 'XSTANDARDCOLORMAPP CMAP))))
  147. (DEFINE-FOREIGN XSETSTANDARDCOLORMAP*
  148.                 ("XSetStandardColormap" (IN REP/C-POINTER)
  149.                                         (IN REP/INTEGER)
  150.                                         (IN REP/C-POINTER)
  151.                                         (IN REP/INTEGER))
  152.                 IGNORE)
  153. (DEFINE (XSETSTANDARDCOLORMAP DPY W CMAP PROPERTY)
  154.         (LET* ((DPY (CHK-DISPLAYP DPY))
  155.                (W W)
  156.                (CMAP (CHK-XSTANDARDCOLORMAPP CMAP))
  157.                (PROPERTY PROPERTY)
  158.                (RETURN-VALUE (BLOCK (XSETSTANDARDCOLORMAP* DPY W CMAP PROPERTY)
  159.                                     '())))
  160.               RETURN-VALUE))
  161.